#!/usr/bin/perl

foreach $fieldName (keys %ENV)
{
	print "$fieldName\t\t$ENV{$fieldName}\n";
}